﻿#include <sb.h>

int main()
{
	k_mesg("SCRIPT TEST\n");

	kHsm* hsm = k_hsm_new(0);

	kRedFn* rfn = k_hsm_compile_file(hsm, NULL, "hs_simple.hs", "hs_simple.txt", NULL);

	if (rfn)
	{
		kRnh* run = k_hsm_create_run(hsm, rfn, NULL);
		k_rnh_run(run, NULL, NULL);
		k_base_unload((kBase*)run);

		k_base_unload((kBase*)rfn);
	}

	k_base_unload((kBase*)hsm);

	return 0;
}
